Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do / QUIZ MACHINE.bas < prev next >

Wrap

BASIC Source File | 1996-12-24 | 8KB | 254 lines

10 REM 20 REM 30 REM 40 REM QUIZ MACHINE 50 REM 60 REM BY 70 REM 80 REM SAMUEL CHIANG 90 REM 100 REM 110 REM WITH 120 REM 130 REM ASSISTANCE 140 REM 150 REM FROM 160 REM 170 REM ANTHONY CHIANG 180 REM 190 REM 200 REM 210 REM 220 ONERR GOTO 240 230 DIM T$(6,20),F$(5),R$(5) 240 HOME 250 VTAB 2: HTAB 11: INVERSE : PRINT " * QUIZ MACHINE * ": NORMAL 260 VTAB 6: HTAB 12: PRINT "1) QUIZ TAKER" 270 VTAB 8: HTAB 12: PRINT "2) QUIZ MAKER" 280 VTAB 10: HTAB 12: PRINT "3) EDIT" 290 VTAB 12: HTAB 12: PRINT "4) CATALOG" 300 VTAB 14: HTAB 12: PRINT "5) INSTRUCTIONS" 310 VTAB 16: HTAB 12: PRINT "6) QUIT" 320 VTAB 19: HTAB 7: PRINT "CHOOSE ONE";: GET E 330 IF E >6 OR E <1 THEN 240 340 ON E GOTO 450,990,1690,360,1510,420 350 GOTO 240 360 HOME 370 PRINT : PRINT CHR$(4);"CATALOG" 380 INVERSE 390 PRINT "PRESS ANY KEY TO CONTINUE ";: GET E$ 400 NORMAL 410 GOTO 240 420 HOME 430 VTAB 11: HTAB 16: PRINT "FIAT LUX" 440 END 450 HOME 455 PRINT "SPORTS AND ENTERTAINMENT" 456 PRINT : PRINT "ARE QUIZES ON SOFTDISK": PRINT 460 PRINT "ENTER THE QUIZ YOU WANT TO TAKE ";: INPUT Q$ 470 GOSUB 2090 480 VTAB 22: PRINT "PRESS ANY KEY AND THE QUIZ WILL BEGIN.";: GET X$ 490 FOR I = 1 TO 20 495 POKE -16368,0 500 HOME 510 X = 500 520 PRINT 530 HTAB 5: PRINT "TIME";: HTAB 30: PRINT "POINTS" 540 HTAB 5: PRINT X;: HTAB 30: PRINT P 550 GOSUB 2220 560 A$ = "" 570 A = PEEK( -16384) 580 IF A >127 THEN 640 590 X = X -1 600 IF X < = 0 THEN 780 610 VTAB 3: HTAB 5: PRINT " " 620 VTAB 3: HTAB 5: PRINT X 630 GOTO 560 640 POKE -16368,0:A$ = CHR$(A -128) 650 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 670 660 GOTO 560 670 IF T$(6,I) = A$ THEN 730 680 VTAB 5: HTAB 15: PRINT "WRONG" 690 FOR L = 1 TO 50:Y = PEEK( -16336): NEXT L 700 VTAB 5: HTAB 15: PRINT " " 710 X = X -200 720 GOTO 560 730 VTAB 5: HTAB 15: PRINT "RIGHT" 740 PRINT CHR$(7); CHR$(7) 750 HTAB 15: PRINT "YOU GET ";X;" POINTS" 760 P = P +X 770 GOTO 840 780 VTAB 3: HTAB 5: PRINT " " 790 VTAB 5: HTAB 12: PRINT "YOUR TIME RAN OUT" 800 VTAB 6: HTAB 15: PRINT "ANSWER - ";T$(6,I) 810 FOR O = 1 TO 100 820 X = PEEK( -16336) 830 NEXT O 840 FOR M = 1 TO 3500 850 NEXT M 860 NEXT I 870 HOME 880 VTAB 4: HTAB 10: PRINT "YOU FINAL SCORE IS " 890 PRINT : HTAB 18: PRINT P 900 PRINT : PRINT : PRINT 910 IF P > = 8000 THEN PRINT F$(1): GOTO 960 920 IF P > = 6000 THEN PRINT F$(2): GOTO 960 930 IF P > = 4000 THEN PRINT F$(3): GOTO 960 940 IF P > = 3000 THEN PRINT F$(4): GOTO 960 950 PRINT F$(5) 960 VTAB 23: INVERSE : PRINT "HIT ANY KEY TO CONTINUE": NORMAL 970 GET XX$ 980 CLEAR : GOTO 230 990 HOME 1000 PRINT "WHAT DO YOU WANT TO NAME YOUR QUIZ ";: INPUT Q$ 1010 FOR I = 1 TO 20 1020 HOME 1030 PRINT "ENTER QUESTION #";I;" ";: INPUT T$(1,I) 1040 FOR J = 2 TO 5 1050 PRINT 1060 PRINT "ENTER ANSWER #";J -1;" ";: INPUT T$(J,I) 1070 NEXT J 1080 PRINT 1090 PRINT "ENTER THE NUMBER CORRESPONDING TO THE CORRECT ANSWER "; 1100 INPUT T$(6,I) 1110 IF T$(6,I) = "1" OR T$(6,I) = "2" OR T$(6,I) = "3" OR T$(6,I) = "4" THEN 1130 1120 VTAB 11: PRINT " ": VTAB 11: GOTO 1090 1130 HOME 1140 GOSUB 2220 1150 PRINT 1160 HTAB 10: PRINT "ANSWER - ";T$(6,I) 1170 VTAB 23: PRINT "IS THE ABOVE CORRECT ";: INPUT X$ 1180 IF LEFT$(X$,1) = "Y" THEN 1200 1190 GOTO 1020 1200 NEXT I 1210 FOR N = 1 TO 5 1220 READ R$(N) 1230 NEXT N 1240 DATA EXCELLENT,VERY GOOD,GOOD,FAIR,POOR 1250 HOME 1260 FOR N = 1 TO 5 1270 PRINT 1280 PRINT "ENTER THE RESPONSE FOR "; 1290 IF N = 1 THEN PRINT "AN ";: GOTO 1310 1300 PRINT "A "; 1310 PRINT R$(N);" SCORE";: INPUT F$(N) 1320 NEXT N 1330 HOME 1340 FOR N = 1 TO 5 1350 PRINT 1360 PRINT F$(N) 1370 NEXT N 1380 VTAB 23: PRINT "IS THE ABOVE CORRECT ";: INPUT X$ 1390 IF LEFT$(X$,1) = "Y" THEN 1410 1400 GOTO 1250 1410 HOME 1420 VTAB 11: HTAB 5: PRINT "YOUR QUIZ IS NOW BEING SAVED!" 1430 GOSUB 2400 1440 HOME 1490 VTAB 24: INVERSE : PRINT "HIT ANY KEY TO CONTINUE": NORMAL : GET Z$ 1500 GOTO 240 1510 HOME 1520 HTAB 13: INVERSE : PRINT " INSTRUCTIONS " 1530 NORMAL 1540 VTAB 3: PRINT "QUIZ MACHINE WILL ALLOW YOU TO TAKE, MAKE OR EDIT A QUIZ CONSISTING OF 20 QUESTIONS. IT ALSO LETS YOU TAKE A CATALOG TO CHECK WHAT QUIZZES ARE ON DISK." 1550 PRINT : PRINT "WHEN CHOOSING A QUIZ TO TAKE OR EDIT, IF YOU INPUT A NAME OF A QUIZ NOT ON DISK, THE PROGRAM RETURNS TO THE MENU." 1570 PRINT : PRINT "WHEN IN THE QUIZ MAKER MODE BE CAREFUL YOU DO NOT REPEAT A NAME ALREADY ON DISK. THIS WILL REPLACE THE FIRST QUIZ WITH THE ONE YOU ARE CREATING. YOU " 1575 PRINT "SHOULD ALSO WRITE DOWN THE QUESTIONS ON PAPER BEFORE TYPING THEM IN." 1580 PRINT : PRINT "IF YOU MAKE A MINOR MISTAKE IN THE MAKING OF A QUIZ, DON'T WORRY. FINISH MAKING IT, THEN USE THE EDIT FEATURE." 1590 VTAB 24: INVERSE : PRINT "HIT ANY KEY TO CONTINUE";: GET XX$ 1600 HOME 1610 HTAB 13: PRINT "INSTRUCTIONS": NORMAL 1615 PRINT : PRINT 1620 PRINT "THE QUIZZES ARE MULTIPLE CHOICE, YOU WILL USE THE '1','2','3' OR '4' KEYS TO MAKE YOU CHOICE." 1630 PRINT : PRINT "THE QUIZZES ARE TIMED AND IF YOU CHOOSE THE WRONG ANSWER SOME TIME WILL BE TAKENAWAY." 1640 PRINT : PRINT "IF YOU HAVE NOT MADE YOUR OWN QUIZZES THEN YOU CAN TAKE 'SPORTS' OR 'ENTERTAINMENT' JUST TYPE IN THE NAME WHEN PROMPTED TO." 1650 PRINT : PRINT "IF AT ANY TIME YOU WANT TO RETURN TO THEMENU, HIT <CTL C> AND <RETURN>. ANY QUIZMAKING OR EDITING WILL NOT BE SAVED THOUGH." 1670 VTAB 24: INVERSE : PRINT "HIT ANY KEY TO RETURN TO THE MENU";: GET XX$ 1680 GOTO 240 1690 HOME 1700 PRINT "WHAT QUIZ DO YOU WANT TO EDIT ";: INPUT Q$ 1710 GOSUB 2090 1720 FOR I = 1 TO 20 1730 HOME 1740 GOSUB 2220 1750 PRINT 1760 HTAB 10: PRINT "ANSWER - ";T$(6,I) 1770 VTAB 2: PRINT "IS QUESTION #";I;" OK";: INPUT V$ 1780 IF LEFT$(V$,1) = "Y" THEN 2030 1790 HOME 1800 GOSUB 2320 1810 PRINT 1820 PRINT "TYPE IN QUESTION OR <RETURN> TO KEEP QUESTION";: INPUT B$ 1830 IF B$ = "" THEN 1850 1840 T$(1,I) = B$ 1850 FOR J = 2 TO 5 1860 HOME 1870 PRINT J -1;") ";T$(J,I) 1880 PRINT 1890 PRINT "TYPE IN ANSWER #";J -1;" OR <RETURN> TO KEEP ANSWER.";: INPUT B$ 1900 IF B$ = "" THEN 1920 1910 T$(J,I) = B$ 1920 NEXT J 1930 HOME 1940 GOSUB 2220 1950 PRINT 1960 HTAB 10: PRINT "ANSWER - ";T$(6,I) 1970 PRINT 1980 PRINT "TYPE IN THE CORRECT ANSWERS NUMBER OR <RETURN> TO KEEP CORRECT ANSWER";: INPUT B$ 1990 IF B$ = "" THEN 2030 2000 IF B$ = "1" OR B$ = "2" OR B$ = "3" OR B$ = "4" THEN 2020 2010 GOTO 1930 2020 T$(6,I) = B$ 2030 NEXT I 2040 HOME 2050 VTAB 5: PRINT "YOUR EDITED QUIZ IS NOW BEING SAVED." 2060 GOSUB 2400 2070 VTAB 24: INVERSE : PRINT "HIT ANY KEY TO CONTINUE";: GET XX$ 2080 GOTO 240 2090 D$ = CHR$(4) 2095 PRINT D$;"VERIFY QUIZ:";Q$ 2100 PRINT D$;"OPEN QUIZ:";Q$ 2110 PRINT D$;"READ QUIZ:";Q$ 2120 FOR I = 1 TO 20 2130 FOR J = 1 TO 6 2140 INPUT T$(J,I) 2150 NEXT J 2160 NEXT I 2170 FOR K = 1 TO 5 2180 INPUT F$(K) 2190 NEXT K 2200 PRINT D$;"CLOSE QUIZ:";Q$ 2210 RETURN 2220 VTAB 7 2230 PRINT "QUESTION #";I 2240 PRINT 2250 GOSUB 2320 2260 PRINT 2270 FOR J = 2 TO 5 2280 PRINT 2290 HTAB 5: PRINT J -1;") ";T$(J,I) 2300 NEXT J 2310 RETURN 2320 P$ = T$(1,I) 2330 IF LEN(P$) <40 THEN PRINT P$;: GOTO 2370 2340 FOR K = 39 TO 1 STEP -1 2350 IF MID$ (P$,K,1) = " " THEN PRINT LEFT$(P$,K):P$ = RIGHT$(P$, LEN(P$) -K): GOTO 2330 2360 NEXT K 2370 IF RIGHT$(P$,1) = "?" THEN 2390 2380 PRINT " ?" 2390 RETURN 2400 D$ = CHR$(4) 2410 PRINT D$;"OPEN QUIZ:";Q$ 2420 PRINT D$;"DELETE QUIZ:";Q$ 2430 PRINT D$;"OPEN QUIZ:";Q$ 2440 PRINT D$;"WRITE QUIZ:";Q$ 2450 FOR I = 1 TO 20 2460 FOR J = 1 TO 6 2470 PRINT T$(J,I) 2480 NEXT J 2490 NEXT I 2500 FOR N = 1 TO 5 2510 PRINT F$(N) 2520 NEXT N 2530 PRINT D$;"CLOSE QUIZ:";Q$ 2540 RETURN